home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
business
/
jtsts1.zip
/
PACK1.PRG
/
PROC15.PRO
< prev
next >
Wrap
Text File
|
1994-09-24
|
4KB
|
127 lines
M declare output fields
records.No :records.Date :records.Staff
records.type :records.hrs
records.Rate :customers.name : Records.Price
total :page number : Grandtotal :date
showmins :customers.file : records.misc
prepayments.date :prepayments.amount
end
declare variables
x as number
end
pause on : escape on
'...............................
date = datetext(system date)
bold on : print report header : bold off
for customers with name in order
if customers.Balance = 0 or customers.balance = blank then skiprec
'.....................Header...............
bold on : underline on : print group header : bold off : underline off
'.....................customer loop.......
for records with file = customers.file
if bottom margin < 1.5 and output <> "screen" then
print page footer
page feed
print page header
end if
'..................................
total = total + records.Price
grandtotal = grandtotal + records.price
showmins = zeropad(records.Mins,2,0)
if records.misc = blank then print list items else print misc
next
'....................pre payments
x = 0
for Prepayments With file = customers.file
total = total - Prepayments.amount
grandtotal = grandtotal - prepayments.amount
x = x + 1
print prepay
next
'....................footer........
bold on :print group footer : bold off
customers.Balance = total
update record
total = 0
next
'......................update inhand...........
for inhand
inhand.total = grandtotal
update record
next
print report total
'.....................do last page number if printed...........
if output <> "screen" then
if bottom margin < 1.5 then
print report footer:page feed : exit procedure
end if
do
line feed
if bottom margin < 1.5 then exit do
loop
print report footer : page feed
end if
) .Report Header
═══════════════════════════════════════════════════════════════════════
WORK IN HAND ( )
───────────────────────────────────────────────────────────────────────
.Page Header
Continued
.Group Header
( )
.List Items
. *
.misc
.prepay
Deduct Pre Payment -
.Group Footer
.Page Footer
- -
.Report total
──────────
══════════
.Report Footer
- -
═══════════════════════════════════════════════════════════════════════
.End
date 20 YesText